<%
set conn=server.createobject("adodb.connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.open server.mappath("example3.mdb")
exec="select * from guestbook"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1 
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
       <%do while not rs.eof%>
       <tr>
	<td><%=rs("id")%></td>
	<td><%=rs("name")%></td>
       	<td><%=rs("tel")%></td>
       	<td><%=rs("message")%></td>
       	<td><%=rs("time")%></td>
	</tr>
	<%rs.movenext
	loop
	%>
</table>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>